01 LBL "J0" 
02 STO O 
03 ENTER^ 
04 INT 
05 STO N 
06 - 
07 ABS 
08 E2 
09 * 
10 ENTER^ 
11 INT 
12 STO M 
13 - 
14 E2 
15 * 
16 X<> M 
17 3 
18 + 
19 6 
20 X>Y? 
21 DSE N 
22 LBL 00 
23 X<=Y? 
24 CHS 
25 + 
26 4 
27 + 
28 30.6 
29 * 
30 INT 
31 730550 
32 - 
33 ST+ M 
34 CLX 
35 RCL N 
36 487 
37 * 
38 X<0? 
39 DSE X 
40 LBL 00 
41 .75 
42 * 
43 INT 
44 ST+ M 
45 CLX 
46 RCL O 
47 1582.1015 
48 - 
49 X<0? 
50 GTO 01 
51 X<> N 
52 E2 
53 / 
54 INT 
55 25 
56 % 
57 INT 
58 - 
59 2 
60 - 
61 ST- M 
62 LBL 01 
63 CLX 
64 RCL M 
65 1 
66 - 
67 7 
68 MOD 
69 INT 
70 STO T 
71 X<> O 
72 SIGN 
73 X<> M 
74 CLA 
75 END 
